' Argument
' This program demonstrates passing arguments to a subprogram.

month$ = "January"           ' initialize month$ with value "January"
balance! = 1500                ' initialize balance! with value 1500

CLS

PRINT "Before subprogram:"       ' display original values
PRINT "  month$ = "; month$
PRINT "  balance! ="; balance!
PRINT

CALL AddInterest (month$, balance!)     ' call subprogram to modify values

PRINT "After subprogram:"        ' display modified values
PRINT "  month$ = "; month$
PRINT "  balance! ="; balance!

PRINT
INPUT "Press Return to continue", dummy$

END

SUB AddInterest (monthName$, amount!) STATIC

monthName$ = "February"           ' change name of month
amount! = amount! * 1.05            ' add 5% to amount

END SUB
